home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / PInterfaces / TextEdit.p < prev    next >
Encoding:
Text File  |  1995-07-06  |  28.0 KB  |  835 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        TextEdit.p
  3.  
  4.      Contains:    TextEdit Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT TextEdit;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __TEXTEDIT__}
  30. {$SETC __TEXTEDIT__ := 1}
  31.  
  32. {$I+}
  33. {$SETC TextEditIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __QUICKDRAW__}
  43. {$I Quickdraw.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46. {    QuickdrawText.p                                                }
  47.  
  48. {$IFC UNDEFINED __MIXEDMODE__}
  49. {$I MixedMode.p}
  50. {$ENDC}
  51.  
  52. {$PUSH}
  53. {$ALIGN MAC68K}
  54. {$LibExport+}
  55.     
  56. TYPE
  57.     TEPtr = ^TERec;
  58.     TEHandle = ^TEPtr;
  59.  
  60. { 
  61.     Important note about TEClickLoopProcPtr and WordBreakProcPtr
  62.  
  63.     At one point these were defined as returning the function result in the 
  64.     condition code Z-bit.  This was correct, in that it was what the 68K
  65.     implementation of TextEdit actually tested.  But, MixedMode had a different 
  66.     idea of what returning a boolean in the Z-bit meant.  MixedMode was setting
  67.     the Z-bit the complement of what was wanted.  
  68.     
  69.     Therefore, these ProcPtrs have been changed (back) to return the result in
  70.     register D0.  It turns out that for register based routines, 
  71.     MixedMode sets the Z-bit of the 68K emulator based on the contents 
  72.     of the return result register.  Thus we can get the Z-bit set correctly.  
  73.     
  74.     But, when TextEdit is recoded in PowerPC, if it calls a 68K ClickLoop
  75.     or WordBreak routine, register D0 had better have the result (in addition
  76.     to the Z-bit). Therefore all 68K apps should make sure their ClickLoop or
  77.     WordBreak routines set register D0 at the end.
  78. }
  79. {
  80.     The following ProcPtrs cannot be written in or called from a high-level 
  81.     language without the help of mixed mode or assembly glue because they 
  82.     use the following parameter-passing conventions:
  83.  
  84.     typedef pascal void (*HighHookProcPtr)(const Rect *r, TEPtr pTE);
  85.     typedef pascal void (*CaretHookProcPtr)(const Rect *r, TEPtr pTE);
  86.  
  87.         In:
  88.             =>     r                        on stack
  89.             =>    pTE                        A3.L
  90.         Out:
  91.             none
  92.  
  93.     typedef pascal Boolean (*EOLHookProcPtr)(char theChar, TEPtr pTE, TEHandle hTE);
  94.  
  95.         In:
  96.             =>     theChar                    D0.B
  97.             =>    pTE                        A3.L
  98.             =>    hTE                        A4.L
  99.         Out:
  100.             <=    Boolean                    Z bit of the CCR
  101.  
  102.     typedef pascal unsigned short (*WidthHookProcPtr)(unsigned short textLen,
  103.      unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  104.     typedef pascal unsigned short (*TextWidthHookProcPtr)(unsigned short textLen,
  105.      unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  106.  
  107.         In:
  108.             =>     textLen                    D0.W
  109.             =>    textOffset                D1.W
  110.             =>    textBufferPtr            A0.L
  111.             =>    pTE                        A3.L
  112.             =>    hTE                        A4.L
  113.         Out:
  114.             <=    unsigned short            D1.W
  115.  
  116.     typedef pascal unsigned short (*NWidthHookProcPtr)(unsigned short styleRunLen,
  117.      unsigned short styleRunOffset, short slop, short direction, void *textBufferPtr, 
  118.      short *lineStart, TEPtr pTE, TEHandle hTE);
  119.  
  120.         In:
  121.             =>     styleRunLen                D0.W
  122.             =>    styleRunOffset            D1.W
  123.             =>    slop                    D2.W (low)
  124.             =>    direction                D2.W (high)
  125.             =>    textBufferPtr            A0.L
  126.             =>    lineStart                A2.L
  127.             =>    pTE                        A3.L
  128.             =>    hTE                        A4.L
  129.         Out:
  130.             <=    unsigned short            D1.W
  131.  
  132.     typedef pascal void (*DrawHookProcPtr)(unsigned short textOffset, unsigned short drawLen,
  133.      void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  134.  
  135.         In:
  136.             =>     textOffset                D0.W
  137.             =>    drawLen                    D1.W
  138.             =>    textBufferPtr            A0.L
  139.             =>    pTE                        A3.L
  140.             =>    hTE                        A4.L
  141.         Out:
  142.             none
  143.  
  144.     typedef pascal Boolean (*HitTestHookProcPtr)(unsigned short styleRunLen,
  145.      unsigned short styleRunOffset, unsigned short slop, void *textBufferPtr,
  146.      TEPtr pTE, TEHandle hTE, unsigned short *pixelWidth, unsigned short *charOffset, 
  147.      Boolean *pixelInChar);
  148.  
  149.         In:
  150.             =>     styleRunLen                D0.W
  151.             =>    styleRunOffset            D1.W
  152.             =>    slop                    D2.W
  153.             =>    textBufferPtr            A0.L
  154.             =>    pTE                        A3.L
  155.             =>    hTE                        A4.L
  156.         Out:
  157.             <=    pixelWidth                D0.W (low)
  158.             <=    Boolean                    D0.W (high)
  159.             <=    charOffset                D1.W
  160.             <=    pixelInChar                D2.W
  161.  
  162.     typedef pascal void (*TEFindWordProcPtr)(unsigned short currentPos, short caller, 
  163.      TEPtr pTE, TEHandle hTE, unsigned short *wordStart, unsigned short *wordEnd);
  164.  
  165.         In:
  166.             =>     currentPos                D0.W
  167.             =>    caller                    D2.W
  168.             =>    pTE                        A3.L
  169.             =>    hTE                        A4.L
  170.         Out:
  171.             <=    wordStart                D0.W
  172.             <=    wordEnd                    D1.W
  173.  
  174.     typedef pascal void (*TERecalcProcPtr)(TEPtr pTE, unsigned short changeLength,
  175.        unsigned short *lineStart, unsigned short *firstChar, unsigned short *lastChar);
  176.  
  177.         In:
  178.             =>     pTE                        A3.L
  179.             =>    changeLength            D7.W
  180.         Out:
  181.             <=    lineStart                D2.W
  182.             <=    firstChar                D3.W
  183.             <=    lastChar                D4.W
  184.  
  185.     typedef pascal void (*TEDoTextProcPtr)(TEPtr pTE, unsigned short firstChar, unsigned short lastChar,
  186.                          short selector, GrafPtr *currentGrafPort, short *charPosition);
  187.  
  188.         In:
  189.             =>     pTE                        A3.L
  190.             =>    firstChar                D3.W
  191.             =>    lastChar                D4.W
  192.             =>    selector                D7.W
  193.         Out:
  194.             <=    currentGrafPort            A0.L
  195.             <=    charPosition            D0.W
  196.             
  197. }
  198.     HighHookProcPtr = ProcPtr;  { PROCEDURE HighHook((CONST)VAR r: Rect; pTE: TEPtr); }
  199.     EOLHookProcPtr = ProcPtr;  { FUNCTION EOLHook(theChar: ByteParameter; pTE: TEPtr; hTE: TEHandle): BOOLEAN; }
  200.     CaretHookProcPtr = ProcPtr;  { PROCEDURE CaretHook((CONST)VAR r: Rect; pTE: TEPtr); }
  201.     WidthHookProcPtr = ProcPtr;  { FUNCTION WidthHook(textLen: INTEGER; textOffset: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle): INTEGER; }
  202.     TextWidthHookProcPtr = ProcPtr;  { FUNCTION TextWidthHook(textLen: INTEGER; textOffset: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle): INTEGER; }
  203.     NWidthHookProcPtr = ProcPtr;  { FUNCTION NWidthHook(styleRunLen: INTEGER; styleRunOffset: INTEGER; slop: INTEGER; direction: INTEGER; textBufferPtr: UNIV Ptr; VAR lineStart: INTEGER; pTE: TEPtr; hTE: TEHandle): INTEGER; }
  204.     DrawHookProcPtr = ProcPtr;  { PROCEDURE DrawHook(textOffset: INTEGER; drawLen: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle); }
  205.     HitTestHookProcPtr = ProcPtr;  { FUNCTION HitTestHook(styleRunLen: INTEGER; styleRunOffset: INTEGER; slop: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle; VAR pixelWidth: INTEGER; VAR charOffset: INTEGER; VAR pixelInChar: BOOLEAN): BOOLEAN; }
  206.     TEFindWordProcPtr = ProcPtr;  { PROCEDURE TEFindWord(currentPos: INTEGER; caller: INTEGER; pTE: TEPtr; hTE: TEHandle; VAR wordStart: INTEGER; VAR wordEnd: INTEGER); }
  207.     TERecalcProcPtr = ProcPtr;  { PROCEDURE TERecalc(pTE: TEPtr; changeLength: INTEGER; VAR lineStart: INTEGER; VAR firstChar: INTEGER; VAR lastChar: INTEGER); }
  208.     TEDoTextProcPtr = ProcPtr;  { PROCEDURE TEDoText(pTE: TEPtr; firstChar: INTEGER; lastChar: INTEGER; selector: INTEGER; VAR currentGrafPort: GrafPtr; VAR charPosition: INTEGER); }
  209.     {
  210.         TEClickLoopProcPtr uses register based parameters on the 68k and cannot
  211.         be written in or called from a high-level language without the help of
  212.         mixed mode or assembly glue.
  213.  
  214.         In:
  215.          => pTE             A3.L
  216.         Out:
  217.          <= return value    D0.B
  218.     }
  219.     TEClickLoopProcPtr = Register68kProcPtr;  { register FUNCTION TEClickLoop(pTE: TEPtr): BOOLEAN; }
  220.     {
  221.         WordBreakProcPtr uses register based parameters on the 68k and cannot
  222.         be written in or called from a high-level language without the help of
  223.         mixed mode or assembly glue.
  224.  
  225.         In:
  226.          => text            A0.L
  227.          => charPos         D0.W
  228.         Out:
  229.          <= return value    D0.B
  230.     }
  231.     WordBreakProcPtr = Register68kProcPtr;  { register FUNCTION WordBreak(text: Ptr; charPos: INTEGER): BOOLEAN; }
  232.     HighHookUPP = UniversalProcPtr;
  233.     EOLHookUPP = UniversalProcPtr;
  234.     CaretHookUPP = UniversalProcPtr;
  235.     WidthHookUPP = UniversalProcPtr;
  236.     TextWidthHookUPP = UniversalProcPtr;
  237.     NWidthHookUPP = UniversalProcPtr;
  238.     DrawHookUPP = UniversalProcPtr;
  239.     HitTestHookUPP = UniversalProcPtr;
  240.     TEFindWordUPP = UniversalProcPtr;
  241.     TERecalcUPP = UniversalProcPtr;
  242.     TEDoTextUPP = UniversalProcPtr;
  243.     TEClickLoopUPP = UniversalProcPtr;
  244.     WordBreakUPP = UniversalProcPtr;
  245.  
  246.     TERec = RECORD
  247.         destRect:                Rect;
  248.         viewRect:                Rect;
  249.         selRect:                Rect;
  250.         lineHeight:                INTEGER;
  251.         fontAscent:                INTEGER;
  252.         selPoint:                Point;
  253.         selStart:                INTEGER;
  254.         selEnd:                    INTEGER;
  255.         active:                    INTEGER;
  256.         wordBreak:                WordBreakUPP;
  257.         clickLoop:                TEClickLoopUPP;
  258.         clickTime:                LONGINT;
  259.         clickLoc:                INTEGER;
  260.         caretTime:                LONGINT;
  261.         caretState:                INTEGER;
  262.         just:                    INTEGER;
  263.         teLength:                INTEGER;
  264.         hText:                    Handle;
  265.         hDispatchRec:            LONGINT;                                { added to replace recalBack & recalLines.  it's a handle anyway }
  266.         clikStuff:                INTEGER;
  267.         crOnly:                    INTEGER;
  268.         txFont:                    INTEGER;
  269.         txFace:                    Style;                                    {txFace is unpacked byte}
  270.         txMode:                    INTEGER;
  271.         txSize:                    INTEGER;
  272.         inPort:                    GrafPtr;
  273.         highHook:                HighHookUPP;
  274.         caretHook:                CaretHookUPP;
  275.         nLines:                    INTEGER;
  276.         lineStarts:                ARRAY [0..16000] OF INTEGER;
  277.     END;
  278.  
  279.  
  280. CONST
  281. { Justification (word alignment) styles }
  282.     teJustLeft                    = 0;
  283.     teJustCenter                = 1;
  284.     teJustRight                    = -1;
  285.     teForceLeft                    = -2;
  286. { new names for the Justification (word alignment) styles }
  287.     teFlushDefault                = 0;                            {flush according to the line direction }
  288.     teCenter                    = 1;                            {center justify (word alignment) }
  289.     teFlushRight                = -1;                            {flush right for all scripts }
  290.     teFlushLeft                    = -2;                            {flush left for all scripts }
  291. { Set/Replace style modes }
  292.     fontBit                        = 0;                            {set font}
  293.     faceBit                        = 1;                            {set face}
  294.     sizeBit                        = 2;                            {set size}
  295.     clrBit                        = 3;                            {set color}
  296.     addSizeBit                    = 4;                            {add size mode}
  297.     toggleBit                    = 5;                            {set faces in toggle mode}
  298.     toglBit                        = 5;                            { obsolete.  use toggleBit }
  299. { TESetStyle/TEContinuousStyle modes }
  300.     doFont                        = 1;                            { set font (family) number}
  301.     doFace                        = 2;                            {set character style}
  302.     doSize                        = 4;                            {set type size}
  303.     doColor                        = 8;                            {set color}
  304.     doAll                        = 15;                            {set all attributes}
  305.     addSize                        = 16;                            {adjust type size}
  306.  
  307.     doToggle                    = 32;                            {toggle mode for TESetStyle}
  308. { offsets into TEDispatchRec }
  309.     EOLHook                        = 0;                            {[UniversalProcPtr] TEEOLHook}
  310.     DRAWHook                    = 4;                            {[UniversalProcPtr] TEWidthHook}
  311.     WIDTHHook                    = 8;                            {[UniversalProcPtr] TEDrawHook}
  312.     HITTESTHook                    = 12;                            {[UniversalProcPtr] TEHitTestHook}
  313.     nWIDTHHook                    = 24;                            {[UniversalProcPtr] nTEWidthHook}
  314.     TextWidthHook                = 28;                            {[UniversalProcPtr] TETextWidthHook}
  315. { selectors for TECustomHook }
  316.     intEOLHook                    = 0;                            {TEIntHook value}
  317.     intDrawHook                    = 1;                            {TEIntHook value}
  318.     intWidthHook                = 2;                            {TEIntHook value}
  319.     intHitTestHook                = 3;                            {TEIntHook value}
  320.     intNWidthHook                = 6;                            {TEIntHook value for new version of WidthHook}
  321.     intTextWidthHook            = 7;                            {TEIntHook value for new TextWidthHook}
  322.     teFAutoScroll                = 0;                            {00000001b}
  323.     teFAutoScr                    = 0;                            {00000001b  obsolete. use teFAutoScroll}
  324.     teFTextBuffering            = 1;                            {00000010b}
  325.     teFOutlineHilite            = 2;                            {00000100b}
  326.     teFInlineInput                = 3;                            {00001000b }
  327.     teFUseTextServices            = 4;                            {00010000b }
  328.  
  329. { action for the new "bit (un)set" interface, TEFeatureFlag }
  330.     teBitClear                    = 0;
  331.     teBitSet                    = 1;                            {set the selector bit}
  332.     teBitTest                    = -1;                            {no change; just return the current setting}
  333. {constants for identifying the routine that called FindWord }
  334.     teWordSelect                = 4;                            {clickExpand to select word}
  335.     teWordDrag                    = 8;                            {clickExpand to drag new word}
  336.     teFromFind                    = 12;                            {FindLine called it ($0C)}
  337.     teFromRecal                    = 16;                            {RecalLines called it ($10)      obsolete }
  338. {constants for identifying TEDoText selectors }
  339.     teFind                        = 0;                            {TEDoText called for searching}
  340.     teHighlight                    = 1;                            {TEDoText called for highlighting}
  341.     teDraw                        = -1;                            {TEDoText called for drawing text}
  342.     teCaret                        = -2;                            {TEDoText called for drawing the caret}
  343.  
  344.     
  345. TYPE
  346.     Chars = PACKED ARRAY [0..32000] OF CHAR;
  347.  
  348.     CharsPtr = ^Chars;
  349.  
  350.     CharsHandle = ^CharsPtr;
  351.  
  352.     StyleRun = RECORD
  353.         startChar:                INTEGER;                                {starting character position}
  354.         styleIndex:                INTEGER;                                {index in style table}
  355.     END;
  356.  
  357.     STElement = RECORD
  358.         stCount:                INTEGER;                                {number of runs in this style}
  359.         stHeight:                INTEGER;                                {line height}
  360.         stAscent:                INTEGER;                                {font ascent}
  361.         stFont:                    INTEGER;                                {font (family) number}
  362.         stFace:                    Style;                                    {character Style}
  363.         stSize:                    INTEGER;                                {size in points}
  364.         stColor:                RGBColor;                                {absolute (RGB) color}
  365.     END;
  366.  
  367.     TEStyleTable = ARRAY [0..1776] OF STElement;
  368.  
  369.     STPtr = ^TEStyleTable;
  370.     STHandle = ^STPtr;
  371.  
  372.     LHElement = RECORD
  373.         lhHeight:                INTEGER;                                {maximum height in line}
  374.         lhAscent:                INTEGER;                                {maximum ascent in line}
  375.     END;
  376.  
  377.     LHTable = ARRAY [0..8000] OF LHElement;
  378.  
  379.     LHPtr = ^LHTable;
  380.     LHHandle = ^LHPtr;
  381.  
  382.     ScrpSTElement = RECORD
  383.         scrpStartChar:            LONGINT;                                {starting character position}
  384.         scrpHeight:                INTEGER;                                {starting character position}
  385.         scrpAscent:                INTEGER;
  386.         scrpFont:                INTEGER;
  387.         scrpFace:                Style;                                    {unpacked byte}
  388.         scrpSize:                INTEGER;
  389.         scrpColor:                RGBColor;
  390.     END;
  391.  
  392. { ARRAY [0..1600] OF ScrpSTElement }
  393.     ScrpSTTable = ARRAY [0..1600] OF ScrpSTElement;
  394.  
  395.     StScrpRec = RECORD
  396.         scrpNStyles:            INTEGER;                                {number of styles in scrap}
  397.         scrpStyleTab:            ScrpSTTable;                            {table of styles for scrap}
  398.     END;
  399.  
  400.     StScrpPtr = ^StScrpRec;
  401.     StScrpHandle = ^StScrpPtr;
  402.  
  403.     NullStRec = RECORD
  404.         teReserved:                LONGINT;                                {reserved for future expansion}
  405.         nullScrap:                StScrpHandle;                            {handle to scrap style table}
  406.     END;
  407.  
  408.     NullStPtr = ^NullStRec;
  409.     NullStHandle = ^NullStPtr;
  410.  
  411.     TEStyleRec = RECORD
  412.         nRuns:                    INTEGER;                                {number of style runs}
  413.         nStyles:                INTEGER;                                {size of style table}
  414.         styleTab:                STHandle;                                {handle to style table}
  415.         lhTab:                    LHHandle;                                {handle to line-height table}
  416.         teRefCon:                LONGINT;                                {reserved for application use}
  417.         nullStyle:                NullStHandle;                            {Handle to style set at null selection}
  418.         runs:                    ARRAY [0..8000] OF StyleRun;            {ARRAY [0..8000] OF StyleRun}
  419.     END;
  420.  
  421.     TEStylePtr = ^TEStyleRec;
  422.     TEStyleHandle = ^TEStylePtr;
  423.  
  424.     TextStyle = RECORD
  425.         tsFont:                    INTEGER;                                {font (family) number}
  426.         tsFace:                    Style;                                    {character Style}
  427.         tsSize:                    INTEGER;                                {size in point}
  428.         tsColor:                RGBColor;                                {absolute (RGB) color}
  429.     END;
  430.  
  431.     TextStylePtr = ^TextStyle;
  432.     TextStyleHandle = ^TextStylePtr;
  433.  
  434.     TEIntHook = INTEGER;
  435.  
  436.  
  437. CONST
  438.     uppHighHookProcInfo = $0000000F; { SPECIAL_CASE_PROCINFO( kSpecialCaseHighHook ) }
  439.     uppEOLHookProcInfo = $0000001F; { SPECIAL_CASE_PROCINFO( kSpecialCaseEOLHook ) }
  440.     uppCaretHookProcInfo = $0000000F; { SPECIAL_CASE_PROCINFO( kSpecialCaseCaretHook ) }
  441.     uppWidthHookProcInfo = $0000002F; { SPECIAL_CASE_PROCINFO( kSpecialCaseWidthHook ) }
  442.     uppTextWidthHookProcInfo = $0000002F; { SPECIAL_CASE_PROCINFO( kSpecialCaseTextWidthHook ) }
  443.     uppNWidthHookProcInfo = $0000003F; { SPECIAL_CASE_PROCINFO( kSpecialCaseNWidthHook ) }
  444.     uppDrawHookProcInfo = $0000004F; { SPECIAL_CASE_PROCINFO( kSpecialCaseDrawHook ) }
  445.     uppHitTestHookProcInfo = $0000005F; { SPECIAL_CASE_PROCINFO( kSpecialCaseHitTestHook ) }
  446.     uppTEFindWordProcInfo = $0000006F; { SPECIAL_CASE_PROCINFO( kSpecialCaseTEFindWord ) }
  447.     uppTERecalcProcInfo = $0000009F; { SPECIAL_CASE_PROCINFO( kSpecialCaseTERecalc ) }
  448.     uppTEDoTextProcInfo = $000000AF; { SPECIAL_CASE_PROCINFO( kSpecialCaseTEDoText ) }
  449.     uppTEClickLoopProcInfo = $0000F812; { Register FUNCTION (4 bytes in A3): 1 byte in D0; }
  450.     uppWordBreakProcInfo = $00029812; { Register FUNCTION (4 bytes in A0, 2 bytes in D0): 1 byte in D0; }
  451.  
  452. FUNCTION NewHighHookProc(userRoutine: HighHookProcPtr): HighHookUPP;
  453.     {$IFC NOT GENERATINGCFM }
  454.     INLINE $2E9F;
  455.     {$ENDC}
  456.  
  457. FUNCTION NewEOLHookProc(userRoutine: EOLHookProcPtr): EOLHookUPP;
  458.     {$IFC NOT GENERATINGCFM }
  459.     INLINE $2E9F;
  460.     {$ENDC}
  461.  
  462. FUNCTION NewCaretHookProc(userRoutine: CaretHookProcPtr): CaretHookUPP;
  463.     {$IFC NOT GENERATINGCFM }
  464.     INLINE $2E9F;
  465.     {$ENDC}
  466.  
  467. FUNCTION NewWidthHookProc(userRoutine: WidthHookProcPtr): WidthHookUPP;
  468.     {$IFC NOT GENERATINGCFM }
  469.     INLINE $2E9F;
  470.     {$ENDC}
  471.  
  472. FUNCTION NewTextWidthHookProc(userRoutine: TextWidthHookProcPtr): TextWidthHookUPP;
  473.     {$IFC NOT GENERATINGCFM }
  474.     INLINE $2E9F;
  475.     {$ENDC}
  476.  
  477. FUNCTION NewNWidthHookProc(userRoutine: NWidthHookProcPtr): NWidthHookUPP;
  478.     {$IFC NOT GENERATINGCFM }
  479.     INLINE $2E9F;
  480.     {$ENDC}
  481.  
  482. FUNCTION NewDrawHookProc(userRoutine: DrawHookProcPtr): DrawHookUPP;
  483.     {$IFC NOT GENERATINGCFM }
  484.     INLINE $2E9F;
  485.     {$ENDC}
  486.  
  487. FUNCTION NewHitTestHookProc(userRoutine: HitTestHookProcPtr): HitTestHookUPP;
  488.     {$IFC NOT GENERATINGCFM }
  489.     INLINE $2E9F;
  490.     {$ENDC}
  491.  
  492. FUNCTION NewTEFindWordProc(userRoutine: TEFindWordProcPtr): TEFindWordUPP;
  493.     {$IFC NOT GENERATINGCFM }
  494.     INLINE $2E9F;
  495.     {$ENDC}
  496.  
  497. FUNCTION NewTERecalcProc(userRoutine: TERecalcProcPtr): TERecalcUPP;
  498.     {$IFC NOT GENERATINGCFM }
  499.     INLINE $2E9F;
  500.     {$ENDC}
  501.  
  502. FUNCTION NewTEDoTextProc(userRoutine: TEDoTextProcPtr): TEDoTextUPP;
  503.     {$IFC NOT GENERATINGCFM }
  504.     INLINE $2E9F;
  505.     {$ENDC}
  506.  
  507. FUNCTION NewTEClickLoopProc(userRoutine: TEClickLoopProcPtr): TEClickLoopUPP;
  508.     {$IFC NOT GENERATINGCFM }
  509.     INLINE $2E9F;
  510.     {$ENDC}
  511.  
  512. FUNCTION NewWordBreakProc(userRoutine: WordBreakProcPtr): WordBreakUPP;
  513.     {$IFC NOT GENERATINGCFM }
  514.     INLINE $2E9F;
  515.     {$ENDC}
  516.  
  517. PROCEDURE CallHighHookProc({CONST}VAR r: Rect; pTE: TEPtr; userRoutine: HighHookUPP);
  518.     {$IFC NOT GENERATINGCFM}
  519.     {To be implemented:  Glue to move parameters according to special case conventions.}
  520.     {$ENDC}
  521.  
  522. FUNCTION CallEOLHookProc(theChar: ByteParameter; pTE: TEPtr; hTE: TEHandle; userRoutine: EOLHookUPP): BOOLEAN;
  523.     {$IFC NOT GENERATINGCFM}
  524.     {To be implemented:  Glue to move parameters according to special case conventions.}
  525.     {$ENDC}
  526.  
  527. PROCEDURE CallCaretHookProc({CONST}VAR r: Rect; pTE: TEPtr; userRoutine: CaretHookUPP);
  528.     {$IFC NOT GENERATINGCFM}
  529.     {To be implemented:  Glue to move parameters according to special case conventions.}
  530.     {$ENDC}
  531.  
  532. FUNCTION CallWidthHookProc(textLen: INTEGER; textOffset: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle; userRoutine: WidthHookUPP): INTEGER;
  533.     {$IFC NOT GENERATINGCFM}
  534.     {To be implemented:  Glue to move parameters according to special case conventions.}
  535.     {$ENDC}
  536.  
  537. FUNCTION CallTextWidthHookProc(textLen: INTEGER; textOffset: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle; userRoutine: TextWidthHookUPP): INTEGER;
  538.     {$IFC NOT GENERATINGCFM}
  539.     {To be implemented:  Glue to move parameters according to special case conventions.}
  540.     {$ENDC}
  541.  
  542. FUNCTION CallNWidthHookProc(styleRunLen: INTEGER; styleRunOffset: INTEGER; slop: INTEGER; direction: INTEGER; textBufferPtr: UNIV Ptr; VAR lineStart: INTEGER; pTE: TEPtr; hTE: TEHandle; userRoutine: NWidthHookUPP): INTEGER;
  543.     {$IFC NOT GENERATINGCFM}
  544.     {To be implemented:  Glue to move parameters according to special case conventions.}
  545.     {$ENDC}
  546.  
  547. PROCEDURE CallDrawHookProc(textOffset: INTEGER; drawLen: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle; userRoutine: DrawHookUPP);
  548.     {$IFC NOT GENERATINGCFM}
  549.     {To be implemented:  Glue to move parameters according to special case conventions.}
  550.     {$ENDC}
  551.  
  552. FUNCTION CallHitTestHookProc(styleRunLen: INTEGER; styleRunOffset: INTEGER; slop: INTEGER; textBufferPtr: UNIV Ptr; pTE: TEPtr; hTE: TEHandle; VAR pixelWidth: INTEGER; VAR charOffset: INTEGER; VAR pixelInChar: BOOLEAN; userRoutine: HitTestHookUPP): BOOLEAN;
  553.     {$IFC NOT GENERATINGCFM}
  554.     {To be implemented:  Glue to move parameters according to special case conventions.}
  555.     {$ENDC}
  556.  
  557. PROCEDURE CallTEFindWordProc(currentPos: INTEGER; caller: INTEGER; pTE: TEPtr; hTE: TEHandle; VAR wordStart: INTEGER; VAR wordEnd: INTEGER; userRoutine: TEFindWordUPP);
  558.     {$IFC NOT GENERATINGCFM}
  559.     {To be implemented:  Glue to move parameters according to special case conventions.}
  560.     {$ENDC}
  561.  
  562. PROCEDURE CallTERecalcProc(pTE: TEPtr; changeLength: INTEGER; VAR lineStart: INTEGER; VAR firstChar: INTEGER; VAR lastChar: INTEGER; userRoutine: TERecalcUPP);
  563.     {$IFC NOT GENERATINGCFM}
  564.     {To be implemented:  Glue to move parameters according to special case conventions.}
  565.     {$ENDC}
  566.  
  567. PROCEDURE CallTEDoTextProc(pTE: TEPtr; firstChar: INTEGER; lastChar: INTEGER; selector: INTEGER; VAR currentGrafPort: GrafPtr; VAR charPosition: INTEGER; userRoutine: TEDoTextUPP);
  568.     {$IFC NOT GENERATINGCFM}
  569.     {To be implemented:  Glue to move parameters according to special case conventions.}
  570.     {$ENDC}
  571.  
  572. FUNCTION CallTEClickLoopProc(pTE: TEPtr; userRoutine: TEClickLoopUPP): BOOLEAN;
  573.     {$IFC NOT GENERATINGCFM}
  574.     {To be implemented:  Glue to move parameters into registers.}
  575.     {$ENDC}
  576.  
  577. FUNCTION CallWordBreakProc(text: Ptr; charPos: INTEGER; userRoutine: WordBreakUPP): BOOLEAN;
  578.     {$IFC NOT GENERATINGCFM}
  579.     {To be implemented:  Glue to move parameters into registers.}
  580.     {$ENDC}
  581. FUNCTION TEScrapHandle : Handle;
  582.     {$IFC NOT CFMSYSTEMCALLS}
  583.     INLINE $2EB8, $0AB4;            { MOVE.l $0AB4,(SP) }
  584.     {$ENDC}
  585.  
  586. FUNCTION TEGetScrapLength: LONGINT;
  587. PROCEDURE TEInit;
  588.     {$IFC NOT GENERATINGCFM}
  589.     INLINE $A9CC;
  590.     {$ENDC}
  591. FUNCTION TENew({CONST}VAR destRect: Rect; {CONST}VAR viewRect: Rect): TEHandle;
  592.     {$IFC NOT GENERATINGCFM}
  593.     INLINE $A9D2;
  594.     {$ENDC}
  595. PROCEDURE TEDispose(hTE: TEHandle);
  596.     {$IFC NOT GENERATINGCFM}
  597.     INLINE $A9CD;
  598.     {$ENDC}
  599. PROCEDURE TESetText(text: UNIV Ptr; length: LONGINT; hTE: TEHandle);
  600.     {$IFC NOT GENERATINGCFM}
  601.     INLINE $A9CF;
  602.     {$ENDC}
  603. FUNCTION TEGetText(hTE: TEHandle): CharsHandle;
  604.     {$IFC NOT GENERATINGCFM}
  605.     INLINE $A9CB;
  606.     {$ENDC}
  607. PROCEDURE TEIdle(hTE: TEHandle);
  608.     {$IFC NOT GENERATINGCFM}
  609.     INLINE $A9DA;
  610.     {$ENDC}
  611. PROCEDURE TESetSelect(selStart: LONGINT; selEnd: LONGINT; hTE: TEHandle);
  612.     {$IFC NOT GENERATINGCFM}
  613.     INLINE $A9D1;
  614.     {$ENDC}
  615. PROCEDURE TEActivate(hTE: TEHandle);
  616.     {$IFC NOT GENERATINGCFM}
  617.     INLINE $A9D8;
  618.     {$ENDC}
  619. PROCEDURE TEDeactivate(hTE: TEHandle);
  620.     {$IFC NOT GENERATINGCFM}
  621.     INLINE $A9D9;
  622.     {$ENDC}
  623. PROCEDURE TEKey(key: CHAR; hTE: TEHandle);
  624.     {$IFC NOT GENERATINGCFM}
  625.     INLINE $A9DC;
  626.     {$ENDC}
  627. PROCEDURE TECut(hTE: TEHandle);
  628.     {$IFC NOT GENERATINGCFM}
  629.     INLINE $A9D6;
  630.     {$ENDC}
  631. PROCEDURE TECopy(hTE: TEHandle);
  632.     {$IFC NOT GENERATINGCFM}
  633.     INLINE $A9D5;
  634.     {$ENDC}
  635. PROCEDURE TEPaste(hTE: TEHandle);
  636.     {$IFC NOT GENERATINGCFM}
  637.     INLINE $A9DB;
  638.     {$ENDC}
  639. PROCEDURE TEDelete(hTE: TEHandle);
  640.     {$IFC NOT GENERATINGCFM}
  641.     INLINE $A9D7;
  642.     {$ENDC}
  643. PROCEDURE TEInsert(text: UNIV Ptr; length: LONGINT; hTE: TEHandle);
  644.     {$IFC NOT GENERATINGCFM}
  645.     INLINE $A9DE;
  646.     {$ENDC}
  647. PROCEDURE TESetAlignment(just: INTEGER; hTE: TEHandle);
  648.     {$IFC NOT GENERATINGCFM}
  649.     INLINE $A9DF;
  650.     {$ENDC}
  651. PROCEDURE TEUpdate({CONST}VAR rUpdate: Rect; hTE: TEHandle);
  652.     {$IFC NOT GENERATINGCFM}
  653.     INLINE $A9D3;
  654.     {$ENDC}
  655. PROCEDURE TETextBox(text: UNIV Ptr; length: LONGINT; {CONST}VAR box: Rect; just: INTEGER);
  656.     {$IFC NOT GENERATINGCFM}
  657.     INLINE $A9CE;
  658.     {$ENDC}
  659. PROCEDURE TEScroll(dh: INTEGER; dv: INTEGER; hTE: TEHandle);
  660.     {$IFC NOT GENERATINGCFM}
  661.     INLINE $A9DD;
  662.     {$ENDC}
  663. PROCEDURE TESelView(hTE: TEHandle);
  664.     {$IFC NOT GENERATINGCFM}
  665.     INLINE $A811;
  666.     {$ENDC}
  667. PROCEDURE TEPinScroll(dh: INTEGER; dv: INTEGER; hTE: TEHandle);
  668.     {$IFC NOT GENERATINGCFM}
  669.     INLINE $A812;
  670.     {$ENDC}
  671. PROCEDURE TEAutoView(fAuto: BOOLEAN; hTE: TEHandle);
  672.     {$IFC NOT GENERATINGCFM}
  673.     INLINE $A813;
  674.     {$ENDC}
  675. PROCEDURE TECalText(hTE: TEHandle);
  676.     {$IFC NOT GENERATINGCFM}
  677.     INLINE $A9D0;
  678.     {$ENDC}
  679. FUNCTION TEGetOffset(pt: Point; hTE: TEHandle): INTEGER;
  680.     {$IFC NOT GENERATINGCFM}
  681.     INLINE $A83C;
  682.     {$ENDC}
  683. FUNCTION TEGetPoint(offset: INTEGER; hTE: TEHandle): Point;
  684.     {$IFC NOT GENERATINGCFM}
  685.     INLINE $3F3C, $0008, $A83D;
  686.     {$ENDC}
  687. PROCEDURE TEClick(pt: Point; fExtend: BOOLEAN; h: TEHandle);
  688.     {$IFC NOT GENERATINGCFM}
  689.     INLINE $A9D4;
  690.     {$ENDC}
  691. FUNCTION TEStyleNew({CONST}VAR destRect: Rect; {CONST}VAR viewRect: Rect): TEHandle;
  692.     {$IFC NOT GENERATINGCFM}
  693.     INLINE $A83E;
  694.     {$ENDC}
  695. PROCEDURE TESetStyleHandle(theHandle: TEStyleHandle; hTE: TEHandle);
  696.     {$IFC NOT GENERATINGCFM}
  697.     INLINE $3F3C, $0005, $A83D;
  698.     {$ENDC}
  699. FUNCTION TEGetStyleHandle(hTE: TEHandle): TEStyleHandle;
  700.     {$IFC NOT GENERATINGCFM}
  701.     INLINE $3F3C, $0004, $A83D;
  702.     {$ENDC}
  703. PROCEDURE TEGetStyle(offset: INTEGER; VAR theStyle: TextStyle; VAR lineHeight: INTEGER; VAR fontAscent: INTEGER; hTE: TEHandle);
  704.     {$IFC NOT GENERATINGCFM}
  705.     INLINE $3F3C, $0003, $A83D;
  706.     {$ENDC}
  707. PROCEDURE TEStylePaste(hTE: TEHandle);
  708.     {$IFC NOT GENERATINGCFM}
  709.     INLINE $3F3C, $0000, $A83D;
  710.     {$ENDC}
  711. PROCEDURE TESetStyle(mode: INTEGER; {CONST}VAR newStyle: TextStyle; fRedraw: BOOLEAN; hTE: TEHandle);
  712.     {$IFC NOT GENERATINGCFM}
  713.     INLINE $3F3C, $0001, $A83D;
  714.     {$ENDC}
  715. PROCEDURE TEReplaceStyle(mode: INTEGER; {CONST}VAR oldStyle: TextStyle; {CONST}VAR newStyle: TextStyle; fRedraw: BOOLEAN; hTE: TEHandle);
  716.     {$IFC NOT GENERATINGCFM}
  717.     INLINE $3F3C, $0002, $A83D;
  718.     {$ENDC}
  719. FUNCTION TEGetStyleScrapHandle(hTE: TEHandle): StScrpHandle;
  720.     {$IFC NOT GENERATINGCFM}
  721.     INLINE $3F3C, $0006, $A83D;
  722.     {$ENDC}
  723. PROCEDURE TEStyleInsert(text: UNIV Ptr; length: LONGINT; hST: StScrpHandle; hTE: TEHandle);
  724.     {$IFC NOT GENERATINGCFM}
  725.     INLINE $3F3C, $0007, $A83D;
  726.     {$ENDC}
  727. FUNCTION TEGetHeight(endLine: LONGINT; startLine: LONGINT; hTE: TEHandle): LONGINT;
  728.     {$IFC NOT GENERATINGCFM}
  729.     INLINE $3F3C, $0009, $A83D;
  730.     {$ENDC}
  731. FUNCTION TEContinuousStyle(VAR mode: INTEGER; VAR aStyle: TextStyle; hTE: TEHandle): BOOLEAN;
  732.     {$IFC NOT GENERATINGCFM}
  733.     INLINE $3F3C, $000A, $A83D;
  734.     {$ENDC}
  735. PROCEDURE TEUseStyleScrap(rangeStart: LONGINT; rangeEnd: LONGINT; newStyles: StScrpHandle; fRedraw: BOOLEAN; hTE: TEHandle);
  736.     {$IFC NOT GENERATINGCFM}
  737.     INLINE $3F3C, $000B, $A83D;
  738.     {$ENDC}
  739. PROCEDURE TECustomHook(which: TEIntHook; VAR addr: UniversalProcPtr; hTE: TEHandle);
  740.     {$IFC NOT GENERATINGCFM}
  741.     INLINE $3F3C, $000C, $A83D;
  742.     {$ENDC}
  743. FUNCTION TENumStyles(rangeStart: LONGINT; rangeEnd: LONGINT; hTE: TEHandle): LONGINT;
  744.     {$IFC NOT GENERATINGCFM}
  745.     INLINE $3F3C, $000D, $A83D;
  746.     {$ENDC}
  747. FUNCTION TEFeatureFlag(feature: INTEGER; action: INTEGER; hTE: TEHandle): INTEGER;
  748.     {$IFC NOT GENERATINGCFM}
  749.     INLINE $3F3C, $000E, $A83D;
  750.     {$ENDC}
  751. FUNCTION TEGetHiliteRgn(region: RgnHandle; hTE: TEHandle): OSErr;
  752.     {$IFC NOT GENERATINGCFM}
  753.     INLINE $3F3C, $000F, $A83D;
  754.     {$ENDC}
  755. PROCEDURE TESetScrapLength(length: LONGINT);
  756. FUNCTION TEFromScrap: OSErr;
  757. FUNCTION TEToScrap: OSErr;
  758. PROCEDURE TESetClickLoop(clikProc: TEClickLoopUPP; hTE: TEHandle);
  759. PROCEDURE TESetWordBreak(wBrkProc: WordBreakUPP; hTE: TEHandle);
  760. { 
  761.     There is no function to get/set the low-mem for FindWordHook at 0x07F8.
  762.     This is because it is not a low-mem ProcPtr. That address is the entry
  763.     in the OS TrapTable for trap 0xA0FE.  You can use Get/SetTrapAddress to 
  764.     acccess it.    
  765. }
  766. {$IFC OLDROUTINENAMES }
  767. PROCEDURE TESetJust(just: INTEGER; hTE: TEHandle);
  768.     {$IFC NOT GENERATINGCFM}
  769.     INLINE $A9DF;
  770.     {$ENDC}
  771. PROCEDURE TextBox(text: UNIV Ptr; length: LONGINT; {CONST}VAR box: Rect; just: INTEGER);
  772.     {$IFC NOT GENERATINGCFM}
  773.     INLINE $A9CE;
  774.     {$ENDC}
  775. FUNCTION TEStylNew({CONST}VAR destRect: Rect; {CONST}VAR viewRect: Rect): TEHandle;
  776.     {$IFC NOT GENERATINGCFM}
  777.     INLINE $A83E;
  778.     {$ENDC}
  779. PROCEDURE SetStylHandle(theHandle: TEStyleHandle; hTE: TEHandle);
  780.     {$IFC NOT GENERATINGCFM}
  781.     INLINE $3F3C, $0005, $A83D;
  782.     {$ENDC}
  783. PROCEDURE SetStyleHandle(theHandle: TEStyleHandle; hTE: TEHandle);
  784.     {$IFC NOT GENERATINGCFM}
  785.     INLINE $3F3C, $0005, $A83D;
  786.     {$ENDC}
  787. FUNCTION GetStylHandle(hTE: TEHandle): TEStyleHandle;
  788.     {$IFC NOT GENERATINGCFM}
  789.     INLINE $3F3C, $0004, $A83D;
  790.     {$ENDC}
  791. FUNCTION GetStyleHandle(hTE: TEHandle): TEStyleHandle;
  792.     {$IFC NOT GENERATINGCFM}
  793.     INLINE $3F3C, $0004, $A83D;
  794.     {$ENDC}
  795. PROCEDURE TEStylPaste(hTE: TEHandle);
  796.     {$IFC NOT GENERATINGCFM}
  797.     INLINE $3F3C, $0000, $A83D;
  798.     {$ENDC}
  799. FUNCTION GetStylScrap(hTE: TEHandle): StScrpHandle;
  800.     {$IFC NOT GENERATINGCFM}
  801.     INLINE $3F3C, $0006, $A83D;
  802.     {$ENDC}
  803. FUNCTION GetStyleScrap(hTE: TEHandle): StScrpHandle;
  804.     {$IFC NOT GENERATINGCFM}
  805.     INLINE $3F3C, $0006, $A83D;
  806.     {$ENDC}
  807. PROCEDURE SetStylScrap(rangeStart: LONGINT; rangeEnd: LONGINT; newStyles: StScrpHandle; fRedraw: BOOLEAN; hTE: TEHandle);
  808.     {$IFC NOT GENERATINGCFM}
  809.     INLINE $3F3C, $000B, $A83D;
  810.     {$ENDC}
  811. PROCEDURE SetStyleScrap(rangeStart: LONGINT; rangeEnd: LONGINT; newStyles: StScrpHandle; fRedraw: BOOLEAN; hTE: TEHandle);
  812.     {$IFC NOT GENERATINGCFM}
  813.     INLINE $3F3C, $000B, $A83D;
  814.     {$ENDC}
  815. PROCEDURE TEStylInsert(text: UNIV Ptr; length: LONGINT; hST: StScrpHandle; hTE: TEHandle);
  816.     {$IFC NOT GENERATINGCFM}
  817.     INLINE $3F3C, $0007, $A83D;
  818.     {$ENDC}
  819. PROCEDURE TESetScrapLen(length: LONGINT);
  820. FUNCTION TEGetScrapLen: LONGINT;
  821. PROCEDURE SetClikLoop(clikProc: TEClickLoopUPP; hTE: TEHandle);
  822. PROCEDURE SetWordBreak(wBrkProc: WordBreakUPP; hTE: TEHandle);
  823. {$ENDC}
  824.  
  825. {$ALIGN RESET}
  826. {$POP}
  827.  
  828. {$SETC UsingIncludes := TextEditIncludes}
  829.  
  830. {$ENDC} {__TEXTEDIT__}
  831.  
  832. {$IFC NOT UsingIncludes}
  833.  END.
  834. {$ENDC}
  835.